home *** CD-ROM | disk | FTP | other *** search
- |##########|
- |#MAGIC #|EMKAIKCG
- |#PROJECT #|""
- |#PATHS #|"StdProject"
- |#FLAGS #|xx-x-x-xxxx---x-----------------
- |#USERSW #|--x-----------------------------
- |#USERMASK#|--------------------------------
- |#SWITCHES#|xx---xxxxx-xx---
- |##########|
- DEFINITION MODULE MCCTimeString;
-
- (*
- **
- ** Copyright © 1997 Kai Hofmann. All rights reserved.
- ** Registered MUI custom class!
- **
- ** $VER: MCCTimeString.def 12.4 (17.08.97)
- **
- ** Cluster interface model by Henning Thielemann <iakd0@mlucom.urz.uni-halle.de>
- *)
-
- FROM SYSTEM IMPORT SysStringPtr;
- FROM Intuition IMPORT MsgRoot;
- FROM Utility IMPORT HookPtr;
- FROM MuiO IMPORT CBOOLEAN, AreaRec, MuiTags, MethodID;
-
-
- CONST
- cTimeString = "TimeString.mcc"
-
- TYPE
- TimeStringRec = RECORD OF AreaRec END;
- TimeStringObject = POINTER TO TimeStringRec;
-
- TimeStringTags = TAGS OF MuiTags
- timestringTimeFormat = $81EE008A : SysStringPtr;
- END;
-
- TimeStringTagAPtr = POINTER TO ARRAY OF TimeStringTags;
-
-
- PROCEDURE MakeTimeStringObjectA(tags : TimeStringTagAPtr) : TimeStringObject;
- PROCEDURE MakeTimeStringObject(tags : LIST OF TimeStringTags) : TimeStringObject;
-
- GROUP
- Essential =
- cTimeString,
- TimeStringRec, TimeStringObject,
- TimeStringTags, TimeStringTagAPtr,
- MakeTimeStringObject, MakeTimeStringObjectA;
-
- All = Essential;
-
- END MCCTimeString.
-